﻿Public Class GaussCoord
    ''' 东向坐标
    Public Easting As Double
    ''' 北向坐标
    Public Northing As Double
    ''' 中央子午线经度
    Public CentralMeridian As Double
    ''' 比例因子
    'Public ScaleFactor As Double
    '''带号
    Public ZoneNumber As Integer
    Public Sub New()
        Me.Easting = 0
        Me.Northing = 0
        Me.CentralMeridian = 0
        'Me.ScaleFactor = 0
        Me.ZoneNumber = 0
    End Sub
    Public Sub New(easting As Double, northing As Double, centralMeridian As Double, zoneNumber As Integer)
        Me.Easting = easting
        Me.Northing = northing
        Me.CentralMeridian = centralMeridian
        'Me.ScaleFactor = ScaleFactor
        Me.ZoneNumber = zoneNumber
    End Sub
End Class
